home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Dir / Dir.prot < prev    next >
Text File  |  1997-01-15  |  1KB  |  58 lines
  1. G4C
  2.  
  3. winbig 0 0 130 135 ''
  4. wintype 00001000
  5. winonmouse 100 13
  6.  
  7. xOnInactive
  8. guiclose dir.prot
  9.  
  10. xOnRMB
  11. guiclose dir.prot
  12.  
  13. xOnLoad
  14. setscreen dir.prot $lv_fmscreen
  15. setvar prt_1 1
  16. setvar prt_2 0
  17. setvar prt_3 0
  18. setvar prt_4 0
  19. setvar prt_5 0
  20. setvar prt_6 0
  21. setvar prt_7 0
  22. guiopen dir.prot
  23.  
  24. xOnQuit
  25. delvar prt_#?
  26.  
  27. xonopen
  28. lvmulti dir.gc $mlv_id first
  29. if $lv_file = ""
  30.    ezreq "PROTECT:\nHow's about choosing\nsome files first ?" OK ""
  31.    guiclose dir.prot
  32. endif
  33.  
  34. box 0 0 0 0 OUT BUTTON
  35.  
  36. xCheckBox   80 10  27 11 "No Delete"  prt_1 1 0 ON
  37. xCheckBox   80 25  27 11 Execute      prt_2 1 0 OFF
  38. xCheckBox   80 40  27 11 "No Write"   prt_3 1 0 OFF
  39. xCheckBox   80 55  27 11 "No Read"    prt_4 1 0 OFF
  40. xCheckBox   80 70  27 11 Archive      prt_5 1 0 OFF
  41. xCheckBox   80 85  27 11 Pure         prt_6 1 0 OFF
  42. xCheckBox   80 100 27 11 Script       prt_7 1 0 OFF
  43.  
  44. xButton 5 115 60 15 OK
  45. guiclose dir.prot
  46. setvar prot_flag ""
  47. appvar prot_flag $prt_1
  48. appvar prot_flag $prt_2
  49. appvar prot_flag $prt_3
  50. appvar prot_flag $prt_4
  51. appvar prot_flag $prt_5
  52. appvar prot_flag $prt_6
  53. appvar prot_flag $prt_7
  54. lvaction protect dir.gc $mlv_id $prot_flag
  55.  
  56. xButton 65 115 60 15 Cancel
  57. guiclose dir.prot
  58.